home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / system / VeryDangerousDos.st < prev   
Encoding:
Text File  |  2004-01-31  |  2.6 KB  |  93 lines
  1. "----------------------------------------------------------------------"
  2. " VeryDangerousDOS Class implements some of the most destructive       "
  3. " AmigaDOS functions into AmigaTalk.                                   "
  4. ""
  5. " WARNING:  You should know what you're doing to the Amiga OS before   "
  6. "           messing with this Class, or any other System Class!        "
  7. ""
  8. " Please read AmigaTalk:Help/ADos.guide for guidance on how to use the "
  9. " methods of this Class -- it's really getting hard to document each   "
  10. " AmigaTalk Class in two or more places!                               "
  11. " ---------------------------------------------------------------------"
  12.  
  13. Class VeryDangerousDOS :Object
  14. [
  15.    addSegment: bptrSegList named: segmentName useCount: count
  16.  
  17.       ^ <primitive 249 0 segmentName bptrSegList count>
  18. |         
  19.    deleteFile: fileOrDirName
  20.  
  21.       " WARNING!  WARNING!  Danger, Will Robinson! "
  22.  
  23.       ^ <primitive 249 1 fileOrDirName>
  24. |         
  25.    doPacket: action onPort: msgPort arguments: argArray ! a1 a2 a3 a4 a5 !
  26.  
  27.       a1 <- argArray at: 1.
  28.       a2 <- argArray at: 2.
  29.       a3 <- argArray at: 3.
  30.       a4 <- argArray at: 4.
  31.       a5 <- argArray at: 5.
  32.  
  33.       ^ <primitive 249 2 msgPort action a1 a2 a3 a4 a5>
  34. |         
  35.    formatDisk: diskName on: volumeName type: dosType
  36.  
  37.       " WARNING!  WARNING!  Danger, Will Robinson! "
  38.  
  39.       ^ <primitive 249 3 diskName volumeName dosType>
  40. |         
  41.    internalLoadSegment: bptrFileHandle ovlyTable: bptrTable funcArray: fArray stackPtr: stack
  42.  
  43.       ^ <primitive 249 4 bptrFileHandle bptrTable fArray stack>
  44. |         
  45.    internalUnLoadSegment: bptrSegList freeFuncPtr: freeFunc
  46.  
  47.       ^ <primitive 249 5 bptrSegList freeFunc>
  48. |         
  49.    loadSegment: segmentName
  50.  
  51.       ^ <primitive 249 6 segmentName>
  52. |         
  53.    newLoadSegment: fileName tags: tagArray
  54.  
  55.       ^ <primitive 249 7 fileName tagArray>
  56. |
  57.    removeAssignList: assignmentName from: bptrLock
  58.  
  59.       ^ <primitive 249 8 assignmentName bptrLock>
  60. |         
  61.    removeDosEntry: dosList
  62.  
  63.       ^ <primitive 249 9 dosList>
  64. |         
  65.    removeSegment: segmentObject
  66.  
  67.       ^ <primitive 249 10 segmentObject>
  68. |         
  69.    sendPacket: dosPacket to: msgPort replyTo: replyPort
  70.  
  71.       <primitive 249 11 dosPacket msgPort replyPort>
  72. |         
  73.    setConsoleTask: msgPort
  74.  
  75.       ^ <primitive 249 12 msgPort>
  76. |         
  77.    setFileSystemTask: msgPort
  78.  
  79.       ^ <primitive 249 13 msgPort>
  80. |         
  81.    systemCommandTagList: commandString tags: tagArray
  82.  
  83.       ^ <primitive 249 14 commandString tagArray>
  84. |         
  85.    unLoadSegment: bptrSegList
  86.  
  87.       ^ <primitive 249 15 bptrSegList>
  88. |         
  89.    waitForPacket
  90.  
  91.       ^ <primitive 249 16>
  92. ]
  93.